00100		IMPLICIT INTEGER (A-Z)
00200		DATA A/-500/,B/500/,C/500/,D/-500/
00300	1	FORMAT(' TYPE INITIAL X,Y   '$)
00400	2	FORMAT(10I)
00500		TYPE 1
00600		ACCEPT 2,XX,YY
00700	3	FORMAT(' TYPE NEXT X,Y   '$)
00800	4	TYPE 3
00900		ACCEPT 2,X2,Y2
01000		X1=XX
01100		Y1=YY
01200		XX=X2
01300		YY=Y2
01350		IF(X1.GE.A.AND.X1.LE.C.AND.X2.GE.A.AND.X2.LE.C.AND.
01375		1 Y1.GE.D.AND.Y1.LE.B.AND.Y2.GE.D.AND.Y2.LE.B)GO TO 300
01387	C GO TO 300 IF ALL POINTS ARE INBOUNDS.
01400		IF(X1.LT.A.AND.X2.LT.A)GO TO 4
01500		IF(X1.GT.C.AND.X2.GT.C)GO TO 4
01600		IF(Y1.LT.D.AND.Y2.LT.D)GO TO 4
01700		IF(Y1.GT.B.AND.Y2.GT.B)GO TO 4
01800	100	CALL CL(X1,X2,Y1,Y2,W1,W2,Z1,Z2,A,C)
01900		IF(Z1.LT.D.AND.Z2.LT.D)GO TO 4
02000		IF(Z1.GT.B.AND.Z2.GT.B)GO TO 4
02100	200	CALL CL(Z1,Z2,W1,W2,Y1,Y2,X1,X2,D,B)
02200	300	TYPE 2,X1,Y1,X2,Y2
02300		GO TO 4
02400		END
02500